Imports System.Data.SqlClient

Public Class cls_ensayo02_

    Implements ICloneable

#Region "Variables ..."
    Private int_idensayo02 As Integer = 0
    Private int_idensayotipo As Integer = 0
    Private int_idensayosubtipo As Integer = 0
    Private str_numero As String = ""
    Private dte_fecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private int_idcliente As Integer = 0
    Private int_idobra As Integer = 0
    Private int_equipotipo As Integer = 0
    Private int_idequipo As Integer = 0
    Private int_idmaterial As Integer = 0
    Private int_iddiametro As Integer = 0
    Private int_iddiametrounidad As Integer = 0
    Private dbl_materialespesor As Double = 0
    Private dbl_sobremonta As Double = 0
    Private dbl_soldaduraespesor As Double = 0
    Private int_idmaterialespesorunidad As Integer = 0
    Private int_idsobremontaunidad As Integer = 0
    Private int_idsoldaduraespesorunidad As Integer = 0
    Private int_idpelicula As Integer = 0
    Private int_idfuente As Integer = 0
    Private dbl_actividadCI As Double = 0
    Private int_idactividadCIunidad As Integer = 0
    Private dbl_tamañofocal As Double = 0
    Private int_idtamañofocalunidad As Integer = 0
    Private dbl_pantallasdelanteras As Double = 0
    Private int_idpantallasdelanterasunidad As Integer = 0
    Private dbl_pantallastraseras As Double = 0
    Private int_idpantallastraserasunidad As Integer = 0
    Private int_idtecnicaempleada As Integer = 0
    Private int_ubicacionICI As Integer = 0
    Private int_idubicacionmarcadores As Integer = 0
    Private dbl_minimadistanciafuente As Double = 0
    Private int_idminimadistanciafuenteunidad As Integer = 0
    Private dbl_maximadistaciafuente As Double = 0
    Private int_idmaximadistaciafuenteunidad As Integer = 0
    Private dbl_hiloagujaesencial As Double = 0
    Private dbl_peliculasporfunda As Double = 0
    Private int_idnormaensayo As Integer = 0
    Private int_idcriterioaceptacion As Integer = 0
    Private int_idregistro As Integer = 0
    Private int_idevaluador As Integer = 0
    Private int_idinspector As Integer = 0
    Private dte_evaluadorfecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private dte_inspectorfecha As DateTime = New System.DateTime(Now.Year, 1, 1)
    Private int_idusuariorealizado As Integer = 0
    Private int_idusuarioingresado As Integer = 0
    Private int_idproceso1 As Integer = 0
    Private int_idproceso2 As Integer = 0
    Private int_idproceso3 As Integer = 0
    Private str_observaciones As String = 0

    Private obj_ensayo02detalle_ As cls_ensayo02detalle_ = Nothing

    Private obj_equipo As cls_equipo_
    Private obj_area As cls_area_
    Private obj_ensayotipo As cls_ensayotipo_ = Nothing
    Private obj_ensayosubtipo As cls_ensayosubtipo_
    Private obj_cliente As cls_cliente_
    Private obj_centrocostoorden As cls_centrocostoorden_
    Private obj_evaluador As cls_personal_
    Private obj_inspector As cls_personal_
    Private obj_usuariorealizado As cls_usuario_
    Private obj_usuarioingresado As cls_usuario_
    Private obj_proceso1 As cls_proceso_
    Private obj_proceso2 As cls_proceso_
    Private obj_proceso3 As cls_proceso_

    Private obj_registro As cls_registro_ = Nothing

    Private col_Items As Collections.Generic.List(Of cls_ensayo02_) = Nothing

    Public Overrides Function ToString() As String
        Return numero
    End Function
#End Region

#Region "Propiedades ..."
    Property idensayo02() As Integer
        Get
            idensayo02 = int_idensayo02
        End Get
        Set(ByVal value As Integer)
            int_idensayo02 = value
        End Set
    End Property
    Property idensayotipo() As Integer
        Get
            idensayotipo = int_idensayotipo
        End Get
        Set(ByVal value As Integer)
            int_idensayotipo = value
        End Set
    End Property
    Property idensayosubtipo() As Integer
        Get
            idensayosubtipo = int_idensayosubtipo
        End Get
        Set(ByVal value As Integer)
            int_idensayosubtipo = value
        End Set
    End Property
    Property numero() As String
        Get
            numero = str_numero
        End Get
        Set(ByVal value As String)
            str_numero = value
        End Set
    End Property
    Property fecha() As DateTime
        Get
            fecha = dte_fecha
        End Get
        Set(ByVal value As DateTime)
            dte_fecha = value
        End Set
    End Property
    Property idcliente() As Integer
        Get
            idcliente = int_idcliente
        End Get
        Set(ByVal value As Integer)
            int_idcliente = value
        End Set
    End Property
    Property idobra() As Integer
        Get
            idobra = int_idobra
        End Get
        Set(ByVal value As Integer)
            int_idobra = value
        End Set
    End Property
    Property equipotipo() As Integer
        Get
            equipotipo = int_equipotipo
        End Get
        Set(ByVal value As Integer)
            int_equipotipo = value
        End Set
    End Property
    Property idequipo() As Integer
        Get
            idequipo = int_idequipo
        End Get
        Set(ByVal value As Integer)
            int_idequipo = value
        End Set
    End Property
    Property idmaterial() As Integer
        Get
            idmaterial = int_idmaterial
        End Get
        Set(ByVal value As Integer)
            int_idmaterial = value
        End Set
    End Property
    Property iddiametro() As Integer
        Get
            iddiametro = int_iddiametro
        End Get
        Set(ByVal value As Integer)
            int_iddiametro = value
        End Set
    End Property
    Property iddiametrounidad As Integer
        Get
            iddiametrounidad = int_iddiametrounidad
        End Get
        Set(ByVal value As Integer)
            int_iddiametrounidad = value
        End Set
    End Property
    Property materialespesor() As Double
        Get
            materialespesor = dbl_materialespesor
        End Get
        Set(ByVal value As Double)
            dbl_materialespesor = value
        End Set
    End Property
    Property sobremonta() As Double
        Get
            sobremonta = dbl_sobremonta
        End Get
        Set(ByVal value As Double)
            dbl_sobremonta = value
        End Set
    End Property
    Property soldaduraespesor() As Double
        Get
            soldaduraespesor = dbl_soldaduraespesor
        End Get
        Set(ByVal value As Double)
            dbl_soldaduraespesor = value
        End Set
    End Property
    Property idmaterialespesorunidad() As Integer
        Get
            idmaterialespesorunidad = int_idmaterialespesorunidad
        End Get
        Set(ByVal value As Integer)
            int_idmaterialespesorunidad = value
        End Set
    End Property
    Property idsobremontaunidad() As Integer
        Get
            idsobremontaunidad = int_idsobremontaunidad
        End Get
        Set(ByVal value As Integer)
            int_idsobremontaunidad = value
        End Set
    End Property
    Property observaciones As String
        Get
            observaciones = str_observaciones
        End Get
        Set(ByVal value As String)
            str_observaciones = value
        End Set
    End Property
    Property idsoldaduraespesorunidad() As Integer
        Get
            idsoldaduraespesorunidad = int_idsoldaduraespesorunidad
        End Get
        Set(ByVal value As Integer)
            int_idsoldaduraespesorunidad = value
        End Set
    End Property
    Property idpelicula() As Integer
        Get
            idpelicula = int_idpelicula
        End Get
        Set(ByVal value As Integer)
            int_idpelicula = value
        End Set
    End Property
    Property idfuente() As Integer
        Get
            idfuente = int_idfuente
        End Get
        Set(ByVal value As Integer)
            int_idfuente = value
        End Set
    End Property
    Property actividadCI() As Double
        Get
            actividadCI = dbl_actividadCI
        End Get
        Set(ByVal value As Double)
            dbl_actividadCI = value
        End Set
    End Property
    Property idactividadCIunidad() As Integer
        Get
            idactividadCIunidad = int_idactividadCIunidad
        End Get
        Set(ByVal value As Integer)
            int_idactividadCIunidad = value
        End Set
    End Property
    Property tamañofocal() As Double
        Get
            tamañofocal = dbl_tamañofocal
        End Get
        Set(ByVal value As Double)
            dbl_tamañofocal = value
        End Set
    End Property
    Property idtamañofocalunidad() As Integer
        Get
            idtamañofocalunidad = int_idtamañofocalunidad
        End Get
        Set(ByVal value As Integer)
            int_idtamañofocalunidad = value
        End Set
    End Property
    Property pantallasdelanteras() As Double
        Get
            pantallasdelanteras = dbl_pantallasdelanteras
        End Get
        Set(ByVal value As Double)
            dbl_pantallasdelanteras = value
        End Set
    End Property
    Property idpantallasdelanterasunidad() As Integer
        Get
            idpantallasdelanterasunidad = int_idpantallasdelanterasunidad
        End Get
        Set(ByVal value As Integer)
            int_idpantallasdelanterasunidad = value
        End Set
    End Property
    Property pantallastraseras() As Double
        Get
            pantallastraseras = dbl_pantallastraseras
        End Get
        Set(ByVal value As Double)
            dbl_pantallastraseras = value
        End Set
    End Property
    Property idpantallastraserasunidad() As Integer
        Get
            idpantallastraserasunidad = int_idpantallastraserasunidad
        End Get
        Set(ByVal value As Integer)
            int_idpantallastraserasunidad = value
        End Set
    End Property
    Property idtecnicaempleada() As Integer
        Get
            idtecnicaempleada = int_idtecnicaempleada
        End Get
        Set(ByVal value As Integer)
            int_idtecnicaempleada = value
        End Set
    End Property
    Property ubicacionICI() As Integer
        Get
            ubicacionICI = int_ubicacionICI
        End Get
        Set(ByVal value As Integer)
            int_ubicacionICI = value
        End Set
    End Property
    Property idubicacionmarcadores() As Integer
        Get
            idubicacionmarcadores = int_idubicacionmarcadores
        End Get
        Set(ByVal value As Integer)
            int_idubicacionmarcadores = value
        End Set
    End Property
    Property minimadistanciafuente() As Double
        Get
            minimadistanciafuente = dbl_minimadistanciafuente
        End Get
        Set(ByVal value As Double)
            dbl_minimadistanciafuente = value
        End Set
    End Property
    Property idminimadistanciafuenteunidad() As Integer
        Get
            idminimadistanciafuenteunidad = int_idminimadistanciafuenteunidad
        End Get
        Set(ByVal value As Integer)
            int_idminimadistanciafuenteunidad = value
        End Set
    End Property
    Property maximadistaciafuente() As Double
        Get
            maximadistaciafuente = dbl_maximadistaciafuente
        End Get
        Set(ByVal value As Double)
            dbl_maximadistaciafuente = value
        End Set
    End Property
    Property idmaximadistaciafuenteunidad() As Integer
        Get
            idmaximadistaciafuenteunidad = int_idmaximadistaciafuenteunidad
        End Get
        Set(ByVal value As Integer)
            int_idmaximadistaciafuenteunidad = value
        End Set
    End Property
    Property hiloagujaesencial() As Double
        Get
            hiloagujaesencial = dbl_hiloagujaesencial
        End Get
        Set(ByVal value As Double)
            dbl_hiloagujaesencial = value
        End Set
    End Property
    Property peliculasporfunda() As Double
        Get
            peliculasporfunda = dbl_peliculasporfunda
        End Get
        Set(ByVal value As Double)
            dbl_peliculasporfunda = value
        End Set
    End Property
    Property idnormaensayo() As Integer
        Get
            idnormaensayo = int_idnormaensayo
        End Get
        Set(ByVal value As Integer)
            int_idnormaensayo = value
        End Set
    End Property
    Property idcriterioaceptacion() As Integer
        Get
            idcriterioaceptacion = int_idcriterioaceptacion
        End Get
        Set(ByVal value As Integer)
            int_idcriterioaceptacion = value
        End Set
    End Property
    Property idregistro() As Integer
        Get
            idregistro = int_idregistro
        End Get
        Set(ByVal value As Integer)
            int_idregistro = value
        End Set
    End Property
    Property idevaluador() As Integer
        Get
            idevaluador = int_idevaluador
        End Get
        Set(ByVal value As Integer)
            int_idevaluador = value
        End Set
    End Property
    Property idinspector() As Integer
        Get
            idinspector = int_idinspector
        End Get
        Set(ByVal value As Integer)
            int_idinspector = value
        End Set
    End Property
    Property evaluadorfecha() As DateTime
        Get
            evaluadorfecha = dte_evaluadorfecha
        End Get
        Set(ByVal value As DateTime)
            dte_evaluadorfecha = value
        End Set
    End Property
    Property inspectorfecha() As DateTime
        Get
            inspectorfecha = dte_inspectorfecha
        End Get
        Set(ByVal value As DateTime)
            dte_inspectorfecha = value
        End Set
    End Property
    Property idusuariorealizado() As Integer
        Get
            idusuariorealizado = int_idusuariorealizado
        End Get
        Set(ByVal value As Integer)
            int_idusuariorealizado = value
        End Set
    End Property
    Property idusuarioingresado() As Integer
        Get
            idusuarioingresado = int_idusuarioingresado
        End Get
        Set(ByVal value As Integer)
            int_idusuarioingresado = value
        End Set
    End Property
    Property idproceso1() As Integer
        Get
            idproceso1 = int_idproceso1
        End Get
        Set(ByVal value As Integer)
            int_idproceso1 = value
        End Set
    End Property
    Property idproceso2() As Integer
        Get
            idproceso2 = int_idproceso2
        End Get
        Set(ByVal value As Integer)
            int_idproceso2 = value
        End Set
    End Property
    Property idproceso3() As Integer
        Get
            idproceso3 = int_idproceso3
        End Get
        Set(ByVal value As Integer)
            int_idproceso3 = value
        End Set
    End Property

    Property evaluador() As cls_personal_
        Get
            If IsNothing(obj_evaluador) Then
                obj_evaluador = New cls_personal_
                If Not obj_evaluador.Buscar(idevaluador) Then
                    obj_evaluador = Nothing
                End If
            End If
            evaluador = obj_evaluador
        End Get
        Set(ByVal value As cls_personal_)
            obj_evaluador = value
        End Set
    End Property

    Property inspector() As cls_personal_
        Get
            If IsNothing(obj_inspector) Then
                obj_inspector = New cls_personal_
                If Not obj_inspector.Buscar(idinspector) Then
                    obj_inspector = Nothing
                End If
            End If
            inspector = obj_inspector
        End Get
        Set(ByVal value As cls_personal_)
            obj_inspector = value
        End Set
    End Property

    Property usuariorealizado() As cls_usuario_
        Get
            If IsNothing(obj_usuariorealizado) Then
                obj_usuariorealizado = New cls_usuario_
                If Not obj_usuariorealizado.Buscar(idusuariorealizado) Then
                    obj_usuariorealizado = Nothing
                End If
            End If
            usuariorealizado = obj_usuariorealizado
        End Get
        Set(ByVal value As cls_usuario_)
            obj_usuariorealizado = value
        End Set
    End Property

    Property usuarioingresado() As cls_usuario_
        Get
            If IsNothing(obj_usuarioingresado) Then
                obj_usuarioingresado = New cls_usuario_
                If Not obj_usuarioingresado.Buscar(idusuarioingresado) Then
                    obj_usuarioingresado = Nothing
                End If
            End If
            usuarioingresado = obj_usuarioingresado
        End Get
        Set(ByVal value As cls_usuario_)
            obj_usuarioingresado = value
        End Set
    End Property
    Property equipo() As cls_equipo_
        Get
            If IsNothing(obj_equipo) Then
                obj_equipo = New cls_equipo_
                If Not obj_equipo.Buscar(idequipo) Then
                    obj_equipo = Nothing
                End If
            End If
            equipo = obj_equipo
        End Get
        Set(ByVal value As cls_equipo_)
            obj_equipo = value
        End Set
    End Property
    Property area() As cls_area_
        Get
            If IsNothing(obj_area) Then
                obj_area = New cls_area_
                If Not obj_area.Buscar(idequipo) Then
                    obj_area = Nothing
                End If
            End If
            area = obj_area
        End Get
        Set(ByVal value As cls_area_)
            obj_area = value
        End Set
    End Property
    Property proceso3() As cls_proceso_
        Get
            If IsNothing(obj_proceso3) Then
                obj_proceso3 = New cls_proceso_
                If Not obj_proceso3.Buscar(idproceso3) Then
                    obj_proceso3 = Nothing
                End If
            End If
            proceso3 = obj_proceso3
        End Get
        Set(ByVal value As cls_proceso_)
            obj_proceso3 = value
        End Set
    End Property
    Property proceso2() As cls_proceso_
        Get
            If IsNothing(obj_proceso2) Then
                obj_proceso2 = New cls_proceso_
                If Not obj_proceso2.Buscar(idproceso2) Then
                    obj_proceso2 = Nothing
                End If
            End If
            proceso2 = obj_proceso2
        End Get
        Set(ByVal value As cls_proceso_)
            obj_proceso2 = value
        End Set
    End Property
    Property proceso1() As cls_proceso_
        Get
            If IsNothing(obj_proceso1) Then
                obj_proceso1 = New cls_proceso_
                If Not obj_proceso1.Buscar(idproceso1) Then
                    obj_proceso1 = Nothing
                End If
            End If
            proceso1 = obj_proceso1
        End Get
        Set(ByVal value As cls_proceso_)
            obj_proceso1 = value
        End Set
    End Property
    Property ensayotipo() As cls_ensayotipo_
        Get
            If IsNothing(obj_ensayotipo) Then
                obj_ensayotipo = New cls_ensayotipo_
                If Not obj_ensayotipo.Buscar(idensayotipo) Then
                    obj_ensayotipo = Nothing
                End If
            End If
            ensayotipo = obj_ensayotipo
        End Get
        Set(ByVal value As cls_ensayotipo_)
            obj_ensayotipo = value
        End Set
    End Property

    Property ensayosubtipo() As cls_ensayosubtipo_
        Get
            If IsNothing(obj_ensayosubtipo) Then
                obj_ensayosubtipo = New cls_ensayosubtipo_
                If Not obj_ensayosubtipo.Buscar(idensayosubtipo) Then
                    obj_ensayosubtipo = Nothing
                End If
            End If
            ensayosubtipo = obj_ensayosubtipo
        End Get
        Set(ByVal value As cls_ensayosubtipo_)
            obj_ensayosubtipo = value
        End Set
    End Property

    Property cliente() As cls_cliente_
        Get
            If IsNothing(obj_cliente) Then
                obj_cliente = New cls_cliente_
                If Not obj_cliente.Buscar(idcliente) Then
                    obj_cliente = Nothing
                End If
            End If
            cliente = obj_cliente
        End Get
        Set(ByVal value As cls_cliente_)
            obj_cliente = value
        End Set
    End Property

    Property centrocostoorden() As cls_centrocostoorden_
        Get
            If IsNothing(obj_centrocostoorden) Then
                obj_centrocostoorden = New cls_centrocostoorden_
                If Not obj_centrocostoorden.Buscar(idobra) Then
                    obj_centrocostoorden = Nothing
                End If
            End If
            centrocostoorden = obj_centrocostoorden
        End Get
        Set(ByVal value As cls_centrocostoorden_)
            obj_centrocostoorden = value
        End Set
    End Property
    Property registro() As cls_registro_
        Get
            If IsNothing(obj_registro) Then
                obj_registro = New cls_registro_
                If Not obj_registro.Buscar(idregistro) Then
                    obj_registro = Nothing
                End If
            End If
            registro = obj_registro
        End Get
        Set(ByVal value As cls_registro_)
            obj_registro = value
        End Set
    End Property
    Property ensayo02detalle_() As cls_ensayo02detalle_
        Get
            If IsNothing(obj_ensayo02detalle_) Then
                obj_ensayo02detalle_ = New cls_ensayo02detalle_
                If Not obj_ensayo02detalle_.CargarXidensayo02(idensayo02) Then
                    obj_ensayo02detalle_ = Nothing
                End If
            End If
            ensayo02detalle_ = obj_ensayo02detalle_
        End Get
        Set(ByVal value As cls_ensayo02detalle_)
            obj_ensayo02detalle_ = value
        End Set
    End Property
    Property Items() As Collections.Generic.List(Of cls_ensayo02_)
        Get
            Items = col_Items
        End Get
        Set(ByVal value As Collections.Generic.List(Of cls_ensayo02_))
            col_Items = value
        End Set
    End Property
#End Region

    Private Sub CargarColeccion(ByVal obj_Reader As SqlDataReader)
        col_Items = New Collections.Generic.List(Of cls_ensayo02_)
        While obj_Reader.Read()
            Dim Elemento As New cls_ensayo02_
            Elemento.int_idensayo02 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02")))

            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo"))) = False Then
                Elemento.int_idensayotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo"))) = False Then
                Elemento.int_idensayosubtipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numero"))) = False Then
                Elemento.str_numero = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numero")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha"))) = False Then
                Elemento.dte_fecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente"))) = False Then
                Elemento.int_idcliente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idobra"))) = False Then
                Elemento.int_idobra = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idobra")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("equipotipo"))) = False Then
                Elemento.int_equipotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("equipotipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo"))) = False Then
                Elemento.int_idequipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterial"))) = False Then
                Elemento.int_idmaterial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterial")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametro"))) = False Then
                Elemento.int_iddiametro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametro")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("materialespesor"))) = False Then
                Elemento.dbl_materialespesor = (obj_Reader.GetValue(obj_Reader.GetOrdinal("materialespesor")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("sobremonta"))) = False Then
                Elemento.dbl_sobremonta = (obj_Reader.GetValue(obj_Reader.GetOrdinal("sobremonta")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("soldaduraespesor"))) = False Then
                Elemento.dbl_soldaduraespesor = (obj_Reader.GetValue(obj_Reader.GetOrdinal("soldaduraespesor")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterialespesorunidad"))) = False Then
                Elemento.int_idmaterialespesorunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterialespesorunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idsobremontaunidad"))) = False Then
                Elemento.int_idsobremontaunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idsobremontaunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idsoldaduraespesorunidad"))) = False Then
                Elemento.int_idsoldaduraespesorunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idsoldaduraespesorunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpelicula"))) = False Then
                Elemento.int_idpelicula = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpelicula")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idfuente"))) = False Then
                Elemento.int_idfuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idfuente")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("actividadCI"))) = False Then
                Elemento.dbl_actividadCI = (obj_Reader.GetValue(obj_Reader.GetOrdinal("actividadCI")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idactividadCIunidad"))) = False Then
                Elemento.int_idactividadCIunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idactividadCIunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("tamañofocal"))) = False Then
                Elemento.dbl_tamañofocal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("tamañofocal")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idtamañofocalunidad"))) = False Then
                Elemento.int_idtamañofocalunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idtamañofocalunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallasdelanteras"))) = False Then
                Elemento.dbl_pantallasdelanteras = (obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallasdelanteras")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallasdelanterasunidad"))) = False Then
                Elemento.int_idpantallasdelanterasunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallasdelanterasunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallastraseras"))) = False Then
                Elemento.dbl_pantallastraseras = (obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallastraseras")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallastraserasunidad"))) = False Then
                Elemento.int_idpantallastraserasunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallastraserasunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idtecnicaempleada"))) = False Then
                Elemento.int_idtecnicaempleada = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idtecnicaempleada")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicacionICI"))) = False Then
                Elemento.int_ubicacionICI = (obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicacionICI")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idubicacionmarcadores"))) = False Then
                Elemento.int_idubicacionmarcadores = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idubicacionmarcadores")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("minimadistanciafuente"))) = False Then
                Elemento.dbl_minimadistanciafuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("minimadistanciafuente")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idminimadistanciafuenteunidad"))) = False Then
                Elemento.int_idminimadistanciafuenteunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idminimadistanciafuenteunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("maximadistaciafuente"))) = False Then
                Elemento.dbl_maximadistaciafuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("maximadistaciafuente")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaximadistaciafuenteunidad"))) = False Then
                Elemento.int_idmaximadistaciafuenteunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaximadistaciafuenteunidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("hiloagujaesencial"))) = False Then
                Elemento.dbl_hiloagujaesencial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("hiloagujaesencial")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculasporfunda"))) = False Then
                Elemento.dbl_peliculasporfunda = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculasporfunda")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idnormaensayo"))) = False Then
                Elemento.int_idnormaensayo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idnormaensayo")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterioaceptacion"))) = False Then
                Elemento.int_idcriterioaceptacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterioaceptacion")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro"))) = False Then
                Elemento.int_idregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador"))) = False Then
                Elemento.int_idevaluador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector"))) = False Then
                Elemento.int_idinspector = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha"))) = False Then
                Elemento.dte_evaluadorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha"))) = False Then
                Elemento.dte_inspectorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado"))) = False Then
                Elemento.int_idusuariorealizado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado"))) = False Then
                Elemento.int_idusuarioingresado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1"))) = False Then
                Elemento.int_idproceso1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2"))) = False Then
                Elemento.int_idproceso2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3"))) = False Then
                Elemento.int_idproceso3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametrounidad"))) = False Then
                Elemento.int_iddiametrounidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametrounidad")))
            End If
            If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("observaciones"))) = False Then
                Elemento.str_observaciones = (obj_Reader.GetValue(obj_Reader.GetOrdinal("observaciones")))
            End If
            col_Items.Add(Elemento)
        End While
    End Sub

    Private Sub CargarVariables(ByVal obj_Reader As SqlDataReader)
        obj_Reader.Read()
        int_idensayo02 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayo02")))

        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo"))) = False Then
            int_idensayotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayotipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo"))) = False Then
            int_idensayosubtipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idensayosubtipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("numero"))) = False Then
            str_numero = (obj_Reader.GetValue(obj_Reader.GetOrdinal("numero")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha"))) = False Then
            dte_fecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("fecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente"))) = False Then
            int_idcliente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcliente")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idobra"))) = False Then
            int_idobra = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idobra")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("equipotipo"))) = False Then
            int_equipotipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("equipotipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo"))) = False Then
            int_idequipo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idequipo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterial"))) = False Then
            int_idmaterial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterial")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametro"))) = False Then
            int_iddiametro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametro")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("materialespesor"))) = False Then
            dbl_materialespesor = (obj_Reader.GetValue(obj_Reader.GetOrdinal("materialespesor")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("sobremonta"))) = False Then
            dbl_sobremonta = (obj_Reader.GetValue(obj_Reader.GetOrdinal("sobremonta")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("soldaduraespesor"))) = False Then
            dbl_soldaduraespesor = (obj_Reader.GetValue(obj_Reader.GetOrdinal("soldaduraespesor")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterialespesorunidad"))) = False Then
            int_idmaterialespesorunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaterialespesorunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idsobremontaunidad"))) = False Then
            int_idsobremontaunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idsobremontaunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idsoldaduraespesorunidad"))) = False Then
            int_idsoldaduraespesorunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idsoldaduraespesorunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpelicula"))) = False Then
            int_idpelicula = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpelicula")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idfuente"))) = False Then
            int_idfuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idfuente")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("actividadCI"))) = False Then
            dbl_actividadCI = (obj_Reader.GetValue(obj_Reader.GetOrdinal("actividadCI")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idactividadCIunidad"))) = False Then
            int_idactividadCIunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idactividadCIunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("tamañofocal"))) = False Then
            dbl_tamañofocal = (obj_Reader.GetValue(obj_Reader.GetOrdinal("tamañofocal")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idtamañofocalunidad"))) = False Then
            int_idtamañofocalunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idtamañofocalunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallasdelanteras"))) = False Then
            dbl_pantallasdelanteras = (obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallasdelanteras")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallasdelanterasunidad"))) = False Then
            int_idpantallasdelanterasunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallasdelanterasunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallastraseras"))) = False Then
            dbl_pantallastraseras = (obj_Reader.GetValue(obj_Reader.GetOrdinal("pantallastraseras")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallastraserasunidad"))) = False Then
            int_idpantallastraserasunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idpantallastraserasunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idtecnicaempleada"))) = False Then
            int_idtecnicaempleada = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idtecnicaempleada")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicacionICI"))) = False Then
            int_ubicacionICI = (obj_Reader.GetValue(obj_Reader.GetOrdinal("ubicacionICI")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idubicacionmarcadores"))) = False Then
            int_idubicacionmarcadores = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idubicacionmarcadores")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("minimadistanciafuente"))) = False Then
            dbl_minimadistanciafuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("minimadistanciafuente")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idminimadistanciafuenteunidad"))) = False Then
            int_idminimadistanciafuenteunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idminimadistanciafuenteunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("maximadistaciafuente"))) = False Then
            dbl_maximadistaciafuente = (obj_Reader.GetValue(obj_Reader.GetOrdinal("maximadistaciafuente")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaximadistaciafuenteunidad"))) = False Then
            int_idmaximadistaciafuenteunidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idmaximadistaciafuenteunidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("hiloagujaesencial"))) = False Then
            dbl_hiloagujaesencial = (obj_Reader.GetValue(obj_Reader.GetOrdinal("hiloagujaesencial")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculasporfunda"))) = False Then
            dbl_peliculasporfunda = (obj_Reader.GetValue(obj_Reader.GetOrdinal("peliculasporfunda")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idnormaensayo"))) = False Then
            int_idnormaensayo = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idnormaensayo")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterioaceptacion"))) = False Then
            int_idcriterioaceptacion = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idcriterioaceptacion")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro"))) = False Then
            int_idregistro = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idregistro")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador"))) = False Then
            int_idevaluador = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idevaluador")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector"))) = False Then
            int_idinspector = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idinspector")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha"))) = False Then
            dte_evaluadorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("evaluadorfecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha"))) = False Then
            dte_inspectorfecha = (obj_Reader.GetValue(obj_Reader.GetOrdinal("inspectorfecha")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado"))) = False Then
            int_idusuariorealizado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuariorealizado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado"))) = False Then
            int_idusuarioingresado = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idusuarioingresado")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1"))) = False Then
            int_idproceso1 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso1")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2"))) = False Then
            int_idproceso2 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso2")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3"))) = False Then
            int_idproceso3 = (obj_Reader.GetValue(obj_Reader.GetOrdinal("idproceso3")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametrounidad"))) = False Then
            int_iddiametrounidad = (obj_Reader.GetValue(obj_Reader.GetOrdinal("iddiametrounidad")))
        End If
        If IsDBNull(obj_Reader.GetValue(obj_Reader.GetOrdinal("observaciones"))) = False Then
            str_observaciones = (obj_Reader.GetValue(obj_Reader.GetOrdinal("observaciones")))
        End If
    End Sub

    Public Sub Nuevo(Optional ByVal ObtenerID As Boolean = False)
        Dim obj_Conexion As New cls_Conexion
        Try
            'Creacion de registro----------------------------------------------------
            If IsNothing(obj_registro) Then
                registro = New cls_registro_
                registro.fechacreado = Now
                registro.idusuariocreado = UsuarioLOG.idusuario
                registro.fechamodificado = Now
                registro.idusuariomodificado = UsuarioLOG.idusuario
                registro.idregistroestado = 1
                registro.idusuarioregistroestado = UsuarioLOG.idusuario
                registro.Nuevo(True)
                idregistro = obj_registro.idregistro
            End If
            '------------------------------------------------------------------------

            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__Nuevo"
                .Parameters.Add("@idensayotipo", SqlDbType.Int).Value = int_idensayotipo
                .Parameters.Add("@idensayosubtipo", SqlDbType.Int).Value = int_idensayosubtipo
                .Parameters.Add("@numero", SqlDbType.NVarChar).Value = str_numero
                .Parameters.Add("@fecha", SqlDbType.DateTime).Value = dte_fecha
                .Parameters.Add("@idcliente", SqlDbType.Int).Value = int_idcliente
                .Parameters.Add("@idobra", SqlDbType.Int).Value = int_idobra
                .Parameters.Add("@equipotipo", SqlDbType.Int).Value = int_equipotipo
                .Parameters.Add("@idequipo", SqlDbType.Int).Value = int_idequipo
                .Parameters.Add("@idmaterial", SqlDbType.Int).Value = int_idmaterial
                .Parameters.Add("@iddiametro", SqlDbType.Int).Value = int_iddiametro
                .Parameters.Add("@materialespesor", SqlDbType.Decimal).Value = dbl_materialespesor
                .Parameters.Add("@sobremonta", SqlDbType.Decimal).Value = dbl_sobremonta
                .Parameters.Add("@soldaduraespesor", SqlDbType.Decimal).Value = dbl_soldaduraespesor
                .Parameters.Add("@idmaterialespesorunidad", SqlDbType.Int).Value = int_idmaterialespesorunidad
                .Parameters.Add("@idsobremontaunidad", SqlDbType.Int).Value = int_idsobremontaunidad
                .Parameters.Add("@idsoldaduraespesorunidad", SqlDbType.Int).Value = int_idsoldaduraespesorunidad
                .Parameters.Add("@idpelicula", SqlDbType.Int).Value = int_idpelicula
                .Parameters.Add("@idfuente", SqlDbType.Int).Value = int_idfuente
                .Parameters.Add("@actividadCI", SqlDbType.Decimal).Value = dbl_actividadCI
                .Parameters.Add("@idactividadCIunidad", SqlDbType.Int).Value = int_idactividadCIunidad
                .Parameters.Add("@tamañofocal", SqlDbType.Decimal).Value = dbl_tamañofocal
                .Parameters.Add("@idtamañofocalunidad", SqlDbType.Int).Value = int_idtamañofocalunidad
                .Parameters.Add("@pantallasdelanteras", SqlDbType.Decimal).Value = dbl_pantallasdelanteras
                .Parameters.Add("@idpantallasdelanterasunidad", SqlDbType.Int).Value = int_idpantallasdelanterasunidad
                .Parameters.Add("@pantallastraseras", SqlDbType.Decimal).Value = dbl_pantallastraseras
                .Parameters.Add("@idpantallastraserasunidad", SqlDbType.Int).Value = int_idpantallastraserasunidad
                .Parameters.Add("@idtecnicaempleada", SqlDbType.Int).Value = int_idtecnicaempleada
                .Parameters.Add("@ubicacionICI", SqlDbType.Int).Value = int_ubicacionICI
                .Parameters.Add("@idubicacionmarcadores", SqlDbType.Int).Value = int_idubicacionmarcadores
                .Parameters.Add("@minimadistanciafuente", SqlDbType.Decimal).Value = dbl_minimadistanciafuente
                .Parameters.Add("@idminimadistanciafuenteunidad", SqlDbType.Int).Value = int_idminimadistanciafuenteunidad
                .Parameters.Add("@maximadistaciafuente", SqlDbType.Decimal).Value = dbl_maximadistaciafuente
                .Parameters.Add("@idmaximadistaciafuenteunidad", SqlDbType.Int).Value = int_idmaximadistaciafuenteunidad
                .Parameters.Add("@hiloagujaesencial", SqlDbType.Decimal).Value = dbl_hiloagujaesencial
                .Parameters.Add("@peliculasporfunda", SqlDbType.Decimal).Value = dbl_peliculasporfunda
                .Parameters.Add("@idnormaensayo", SqlDbType.Int).Value = int_idnormaensayo
                .Parameters.Add("@idcriterioaceptacion", SqlDbType.Int).Value = int_idcriterioaceptacion
                .Parameters.Add("@idregistro", SqlDbType.Int).Value = int_idregistro
                .Parameters.Add("@idevaluador", SqlDbType.Int).Value = int_idevaluador
                .Parameters.Add("@idinspector", SqlDbType.Int).Value = int_idinspector
                .Parameters.Add("@evaluadorfecha", SqlDbType.DateTime).Value = dte_evaluadorfecha
                .Parameters.Add("@inspectorfecha", SqlDbType.DateTime).Value = dte_inspectorfecha
                .Parameters.Add("@idusuariorealizado", SqlDbType.Int).Value = int_idusuariorealizado
                .Parameters.Add("@idusuarioingresado", SqlDbType.Int).Value = int_idusuarioingresado
                .Parameters.Add("@idproceso1", SqlDbType.Int).Value = int_idproceso1
                .Parameters.Add("@idproceso2", SqlDbType.Int).Value = int_idproceso2
                .Parameters.Add("@idproceso3", SqlDbType.Int).Value = int_idproceso3
                .Parameters.Add("@iddiametrounidad", SqlDbType.Int).Value = int_iddiametrounidad
                .Parameters.Add("@observaciones", SqlDbType.NVarChar).Value = int_idproceso3
                .ExecuteNonQuery()
            End With

            CargarUltimo()


            'Creacion de ensayo02detalle_--------------------------------------------------
            If Not IsNothing(ensayo02detalle_) Then
                If Not IsNothing(ensayo02detalle_.Items) Then
                    For Each ensayo02detalle As cls_ensayo02detalle_ In ensayo02detalle_.Items
                        ensayo02detalle.idensayo02 = idensayo02
                        ensayo02detalle.Nuevo(True)
                    Next
                End If
            End If
            '-------------------------------------------------------------------------

            'TEMPORAL Actualizo la numeracion
            Dim ensayosubtipo As New cls_ensayosubtipo_
            If ensayosubtipo.BuscarXidmodulo("001063001") Then
                ensayosubtipo.numero += 1
                ensayosubtipo.Modificar()
            End If

        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Crear el registro de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Modificar()
        Dim obj_Conexion As New cls_Conexion
        Try
            'Modificacion de registro------------------------------------------------
            registro.fechamodificado = Now : registro.idusuariomodificado = UsuarioLOG.idusuario
            registro.Modificar()
            '------------------------------------------------------------------------
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__Modificar"
                .Parameters.Add("@idensayo02", SqlDbType.Int).Value = int_idensayo02
                .Parameters.Add("@idensayotipo", SqlDbType.Int).Value = int_idensayotipo
                .Parameters.Add("@idensayosubtipo", SqlDbType.Int).Value = int_idensayosubtipo
                .Parameters.Add("@numero", SqlDbType.NVarChar).Value = str_numero
                .Parameters.Add("@fecha", SqlDbType.DateTime).Value = dte_fecha
                .Parameters.Add("@idcliente", SqlDbType.Int).Value = int_idcliente
                .Parameters.Add("@idobra", SqlDbType.Int).Value = int_idobra
                .Parameters.Add("@equipotipo", SqlDbType.Int).Value = int_equipotipo
                .Parameters.Add("@idequipo", SqlDbType.Int).Value = int_idequipo
                .Parameters.Add("@idmaterial", SqlDbType.Int).Value = int_idmaterial
                .Parameters.Add("@iddiametro", SqlDbType.Int).Value = int_iddiametro
                .Parameters.Add("@materialespesor", SqlDbType.Decimal).Value = dbl_materialespesor
                .Parameters.Add("@sobremonta", SqlDbType.Decimal).Value = dbl_sobremonta
                .Parameters.Add("@soldaduraespesor", SqlDbType.Decimal).Value = dbl_soldaduraespesor
                .Parameters.Add("@idmaterialespesorunidad", SqlDbType.Int).Value = int_idmaterialespesorunidad
                .Parameters.Add("@idsobremontaunidad", SqlDbType.Int).Value = int_idsobremontaunidad
                .Parameters.Add("@idsoldaduraespesorunidad", SqlDbType.Int).Value = int_idsoldaduraespesorunidad
                .Parameters.Add("@idpelicula", SqlDbType.Int).Value = int_idpelicula
                .Parameters.Add("@idfuente", SqlDbType.Int).Value = int_idfuente
                .Parameters.Add("@actividadCI", SqlDbType.Decimal).Value = dbl_actividadCI
                .Parameters.Add("@idactividadCIunidad", SqlDbType.Int).Value = int_idactividadCIunidad
                .Parameters.Add("@tamañofocal", SqlDbType.Decimal).Value = dbl_tamañofocal
                .Parameters.Add("@idtamañofocalunidad", SqlDbType.Int).Value = int_idtamañofocalunidad
                .Parameters.Add("@pantallasdelanteras", SqlDbType.Decimal).Value = dbl_pantallasdelanteras
                .Parameters.Add("@idpantallasdelanterasunidad", SqlDbType.Int).Value = int_idpantallasdelanterasunidad
                .Parameters.Add("@pantallastraseras", SqlDbType.Decimal).Value = dbl_pantallastraseras
                .Parameters.Add("@idpantallastraserasunidad", SqlDbType.Int).Value = int_idpantallastraserasunidad
                .Parameters.Add("@idtecnicaempleada", SqlDbType.Int).Value = int_idtecnicaempleada
                .Parameters.Add("@ubicacionICI", SqlDbType.Int).Value = int_ubicacionICI
                .Parameters.Add("@idubicacionmarcadores", SqlDbType.Int).Value = int_idubicacionmarcadores
                .Parameters.Add("@minimadistanciafuente", SqlDbType.Decimal).Value = dbl_minimadistanciafuente
                .Parameters.Add("@idminimadistanciafuenteunidad", SqlDbType.Int).Value = int_idminimadistanciafuenteunidad
                .Parameters.Add("@maximadistaciafuente", SqlDbType.Decimal).Value = dbl_maximadistaciafuente
                .Parameters.Add("@idmaximadistaciafuenteunidad", SqlDbType.Int).Value = int_idmaximadistaciafuenteunidad
                .Parameters.Add("@hiloagujaesencial", SqlDbType.Decimal).Value = dbl_hiloagujaesencial
                .Parameters.Add("@peliculasporfunda", SqlDbType.Decimal).Value = dbl_peliculasporfunda
                .Parameters.Add("@idnormaensayo", SqlDbType.Int).Value = int_idnormaensayo
                .Parameters.Add("@idcriterioaceptacion", SqlDbType.Int).Value = int_idcriterioaceptacion
                .Parameters.Add("@idregistro", SqlDbType.Int).Value = int_idregistro
                .Parameters.Add("@idevaluador", SqlDbType.Int).Value = int_idevaluador
                .Parameters.Add("@idinspector", SqlDbType.Int).Value = int_idinspector
                .Parameters.Add("@evaluadorfecha", SqlDbType.DateTime).Value = dte_evaluadorfecha
                .Parameters.Add("@inspectorfecha", SqlDbType.DateTime).Value = dte_inspectorfecha
                .Parameters.Add("@idusuariorealizado", SqlDbType.Int).Value = int_idusuariorealizado
                .Parameters.Add("@idusuarioingresado", SqlDbType.Int).Value = int_idusuarioingresado
                .Parameters.Add("@idproceso1", SqlDbType.Int).Value = int_idproceso1
                .Parameters.Add("@idproceso2", SqlDbType.Int).Value = int_idproceso2
                .Parameters.Add("@idproceso3", SqlDbType.Int).Value = int_idproceso3
                .Parameters.Add("@iddiametrounidad", SqlDbType.Int).Value = int_iddiametrounidad
                .Parameters.Add("@observaciones", SqlDbType.NVarChar).Value = int_idproceso3
                .ExecuteNonQuery()
            End With

            'Creacion/modificacion de produccionresultado-------------------------------------
            If Not IsNothing(ensayo02detalle_) Then
                If Not IsNothing(ensayo02detalle_.Items) Then
                    For Each ensayo02detalle As cls_ensayo02detalle_ In ensayo02detalle_.Items
                        If ensayo02detalle.idensayo02detalle = 0 Then
                            ensayo02detalle.idensayo02 = idensayo02
                            ensayo02detalle.Nuevo(True)
                        Else
                            ensayo02detalle.Modificar()
                        End If
                    Next
                End If
            End If
            '-------------------------------------------------------------------------

        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Modificar el registro de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Sub Eliminar(ByVal idensayo02 As Integer)
        Dim obj_Conexion As New cls_Conexion
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__Eliminar"
                .Parameters.Add("@idensayo02", SqlDbType.Int).Value = idensayo02
                .ExecuteNonQuery()
            End With
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Eliminar el registro de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
        End Try
    End Sub

    Public Function Buscar(ByVal idensayo02 As Integer) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            Buscar = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__Buscar"
                .Parameters.Add("@idensayo02", SqlDbType.Int).Value = idensayo02
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
                Buscar = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al Buscar el registro de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Sub CargarUltimo()
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__CargarUltimo"
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarVariables(obj_Reader)
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarUltimo registro de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Sub

    Public Function CargarTodos(Optional ByVal idregistroestado As Integer = 1) As Boolean
        Dim obj_Conexion As New cls_Conexion
        Dim obj_Reader As SqlDataReader
        Try
            CargarTodos = False
            obj_Conexion.Conectar()
            With obj_Conexion.obj_SqlCommand
                .CommandType = CommandType.StoredProcedure
                .Connection = obj_Conexion.obj_SqlConnection
                .CommandText = "ensayo02__CargarTodos"
                .Parameters.Add("@idregistroestado", SqlDbType.Int).Value = idregistroestado
            End With
            obj_Reader = obj_Conexion.obj_SqlCommand.ExecuteReader
            If obj_Reader.HasRows Then
                CargarColeccion(obj_Reader)
                CargarTodos = True
            End If
        Catch ex As SqlClient.SqlException
            MessageBox.Show("Error al CargarTodos los registros de ensayo02_." & Chr(13) & _
            "Por favor informe del siguiente detalle técnico:" & Chr(13) & _
            "Nro de error: " & ex.ErrorCode & "." & Chr(13) & _
            "Descripción: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            obj_Conexion.Desconectar()
            obj_Conexion = Nothing
            obj_Reader = Nothing
        End Try
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj_ensayo02_Clon As New cls_ensayo02_
        obj_ensayo02_Clon.int_idensayo02 = Me.int_idensayo02
        obj_ensayo02_Clon.int_idensayotipo = Me.int_idensayotipo
        obj_ensayo02_Clon.int_idensayosubtipo = Me.int_idensayosubtipo
        obj_ensayo02_Clon.str_numero = Me.str_numero
        obj_ensayo02_Clon.dte_fecha = Me.dte_fecha
        obj_ensayo02_Clon.int_idcliente = Me.int_idcliente
        obj_ensayo02_Clon.int_idobra = Me.int_idobra
        obj_ensayo02_Clon.int_equipotipo = Me.int_equipotipo
        obj_ensayo02_Clon.int_idequipo = Me.int_idequipo
        obj_ensayo02_Clon.int_idmaterial = Me.int_idmaterial
        obj_ensayo02_Clon.int_iddiametro = Me.int_iddiametro
        obj_ensayo02_Clon.dbl_materialespesor = Me.dbl_materialespesor
        obj_ensayo02_Clon.dbl_sobremonta = Me.dbl_sobremonta
        obj_ensayo02_Clon.dbl_soldaduraespesor = Me.dbl_soldaduraespesor
        obj_ensayo02_Clon.int_idmaterialespesorunidad = Me.int_idmaterialespesorunidad
        obj_ensayo02_Clon.int_idsobremontaunidad = Me.int_idsobremontaunidad
        obj_ensayo02_Clon.int_idsoldaduraespesorunidad = Me.int_idsoldaduraespesorunidad
        obj_ensayo02_Clon.int_idpelicula = Me.int_idpelicula
        obj_ensayo02_Clon.int_idfuente = Me.int_idfuente
        obj_ensayo02_Clon.dbl_actividadCI = Me.dbl_actividadCI
        obj_ensayo02_Clon.int_idactividadCIunidad = Me.int_idactividadCIunidad
        obj_ensayo02_Clon.dbl_tamañofocal = Me.dbl_tamañofocal
        obj_ensayo02_Clon.int_idtamañofocalunidad = Me.int_idtamañofocalunidad
        obj_ensayo02_Clon.dbl_pantallasdelanteras = Me.dbl_pantallasdelanteras
        obj_ensayo02_Clon.int_idpantallasdelanterasunidad = Me.int_idpantallasdelanterasunidad
        obj_ensayo02_Clon.dbl_pantallastraseras = Me.dbl_pantallastraseras
        obj_ensayo02_Clon.int_idpantallastraserasunidad = Me.int_idpantallastraserasunidad
        obj_ensayo02_Clon.int_idtecnicaempleada = Me.int_idtecnicaempleada
        obj_ensayo02_Clon.int_ubicacionICI = Me.int_ubicacionICI
        obj_ensayo02_Clon.int_idubicacionmarcadores = Me.int_idubicacionmarcadores
        obj_ensayo02_Clon.dbl_minimadistanciafuente = Me.dbl_minimadistanciafuente
        obj_ensayo02_Clon.int_idminimadistanciafuenteunidad = Me.int_idminimadistanciafuenteunidad
        obj_ensayo02_Clon.dbl_maximadistaciafuente = Me.dbl_maximadistaciafuente
        obj_ensayo02_Clon.int_idmaximadistaciafuenteunidad = Me.int_idmaximadistaciafuenteunidad
        obj_ensayo02_Clon.dbl_hiloagujaesencial = Me.dbl_hiloagujaesencial
        obj_ensayo02_Clon.dbl_peliculasporfunda = Me.dbl_peliculasporfunda
        obj_ensayo02_Clon.int_idnormaensayo = Me.int_idnormaensayo
        obj_ensayo02_Clon.int_idcriterioaceptacion = Me.int_idcriterioaceptacion
        obj_ensayo02_Clon.int_idregistro = Me.int_idregistro
        obj_ensayo02_Clon.int_idevaluador = Me.int_idevaluador
        obj_ensayo02_Clon.int_idinspector = Me.int_idinspector
        obj_ensayo02_Clon.dte_evaluadorfecha = Me.dte_evaluadorfecha
        obj_ensayo02_Clon.dte_inspectorfecha = Me.dte_inspectorfecha
        obj_ensayo02_Clon.int_idusuariorealizado = Me.int_idusuariorealizado
        obj_ensayo02_Clon.int_idusuarioingresado = Me.int_idusuarioingresado
        obj_ensayo02_Clon.int_idproceso1 = Me.int_idproceso1
        obj_ensayo02_Clon.int_idproceso2 = Me.int_idproceso2
        obj_ensayo02_Clon.int_idproceso3 = Me.int_idproceso3
        obj_ensayo02_Clon.col_Items = Me.col_Items
        Return obj_ensayo02_Clon
    End Function

End Class
